home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 155 / 155.d81 / ft.your genie (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  41 lines
  1. 1000 dv=peek(186):ifdv<8thendv=8
  2. 1002 poke53272,31
  3. 1005 print"[147]          [217]our [208]ersonal [199]enie
  4. 1010 [153]"    (NULL)ress (NULL)(NULL)atnlenval/ascright$(NULL)val and let him out!
  5. 1015 poke53280,0:poke53281,0:poke53272,31
  6. 1020 fors=832to895:pokes,255:next:v=53248
  7. 1025 fors=896to1023:readt:pokes,t:next
  8. 1030 poke2040,13:poke2041,14:poke2042,15
  9. 1035 pokev+39,0:pokev+40,5:pokev+41,7
  10. 1040 pokev+21,7:pokev+28,2:pokev+37,7
  11. 1045 pokev+38,10:pokev+3,120:pokev+4,172
  12. 1050 pokev,150:pokev+1,120:pokev+2,150
  13. 1055 pokev+29,4:pokev+5,133:poke198,0
  14. 1057 j=peek(56320):geta$:ifa$<>" "andj>111then1057
  15. 1060 ford=1to50:next:fors=895to832step-1:pokes,0:ford=1to50:next:next
  16. 1061 data1,85,0,5,253,64,7,51
  17. 1062 data64,23,255,80,31,207,208,15
  18. 1063 data255,195,43,3,15,43,3,138
  19. 1064 data170,206,170,42,170,168,10,170
  20. 1065 data160,42,138,160,10,170,160,2
  21. 1066 data162,160,2,170,160,0,168,160
  22. 1067 data0,170,160,0,42,168,0,10
  23. 1068 data168,0,42,168,0,0,10,223
  24. 1069 data0,0,0,0,0,0,0,0
  25. 1070 data0,0,0,0,0,0,0,0
  26. 1071 data0,0,0,0,0,192,0,0
  27. 1072 data224,0,12,48,60,30,28,126
  28. 1073 data51,15,255,195,7,255,195,7
  29. 1074 data255,195,1,255,102,0,254,60
  30. 1075 data0,254,24,0,124,0,0,56
  31. 1076 data0,1,255,0,7,255,192,7
  32. 1078 print"[159]    [208]ress [211][208][193][195][197]/[198][201][210][197] to go to menu.    "
  33. 1080 j=peek(56320):geta$:ifa$<>" "andj>111then1080
  34. 1082 poke53269,0
  35. 1084 print"[147][144]"
  36. 1086 print"new"
  37. 1088 print"load"chr$(34)"ft.menu"chr$(34)","dv
  38. 1090 print"run"
  39. 1092 print"":poke631,13:poke632,13:poke633,13:poke198,3:end
  40. 10000 d=peek(186):n$="ft.your genie":open15,d,15,"s0:"+n$:close15:saven$,d:end
  41.